home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00230.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.1 KB  |  42 lines
  1. property pCharCode, pSpr, pMouthList
  2.  
  3. on beginSprite me
  4.   global gTestFlashIndex, gImplementedCharacters, gMouthList
  5.   if voidp(gMouthList) then
  6.     InitCharacterMouths()
  7.   end if
  8.   pSpr = sprite(me.spriteNum)
  9.   if voidp(gTestFlashIndex) then
  10.     gTestFlashIndex = 1
  11.   end if
  12.   if gTestFlashIndex > count(gImplementedCharacters) then
  13.     put "Test complete"
  14.     halt()
  15.   else
  16.     pCharCode = getPropAt(gImplementedCharacters, gTestFlashIndex)
  17.     pSpr.member = member(pCharCode & "_mouth")
  18.     updateStage()
  19.     put "Testing mouth tags codes for" && pCharCode
  20.     pMouthList = gMouthList[pCharCode]
  21.   end if
  22. end
  23.  
  24. on exitFrame me
  25.   if findLabel(pSpr, "nc1") = EMPTY then
  26.     debugAlert("Can't find default mouth position nc1 for" && pSpr.member.name)
  27.   end if
  28.   repeat with thisEntry in pMouthList
  29.     repeat with X = 1 to count(thisEntry)
  30.       tag = getPropAt(thisEntry, X)
  31.       label = string(tag)
  32.       thisLabel = findLabel(pSpr, label)
  33.       if thisLabel then
  34.         next repeat
  35.       end if
  36.       debugAlert("Can't find mouth position" && label && "for" && pSpr.member.name)
  37.     end repeat
  38.   end repeat
  39.   put "done testing tags for" && pCharCode
  40.   go("test done")
  41. end
  42.